inherited FPesquisaEmissaoNotaFiscal: TFPesquisaEmissaoNotaFiscal
  Left = 170
  Top = 167
  Caption = 'Emiss'#227'o Nota Fiscal'
  ClientHeight = 349
  ClientWidth = 575
  FormStyle = fsNormal
  OldCreateOrder = True
  Visible = False
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 575
    Height = 32
    inherited BtnConsultar: TBitBtn
      Top = 4
      Width = 85
      Height = 24
    end
    inherited BtnLimpar: TBitBtn
      Left = 93
      Top = 4
      Width = 85
      Height = 24
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      Left = 181
      Top = 4
      Width = 85
      Height = 24
      Caption = '&Imprimir'
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Left = 393
      Caption = '&Visualizar'
      Visible = False
      OnClick = BtnSelecionarClick
    end
    inherited BtnFechar: TBitBtn
      Left = 487
      Top = 4
      Width = 85
      Height = 24
    end
  end
  inherited Panel1: TPanel
    Top = 32
    Width = 575
    Height = 317
    object Label1: TLabel [0]
      Left = 3
      Top = 194
      Width = 129
      Height = 13
      Caption = 'Configura'#231#227'o da Impress'#227'o'
    end
    object LNaturezaNota: TLabel [1]
      Left = 1
      Top = 13
      Width = 494
      Height = 18
      AutoSize = False
      Caption = ' Natureza CFOP Nota Fiscal : Entrada'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    inherited DBGrid1: TDBGrid
      Top = 244
      Width = 573
      Height = 72
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Name = 'Times New Roman'
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Name = 'Times New Roman'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_CODIGO'
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'digo'
          Width = 61
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_DATAEMISSAO'
          Title.Alignment = taCenter
          Title.Caption = 'Emiss'#227'o'
          Width = 84
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_NUMERONF'
          Title.Alignment = taCenter
          Title.Caption = 'Nota Fiscal'
          Width = 81
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_SERIENF'
          Title.Alignment = taCenter
          Title.Caption = 'S'#233'rie'
          Width = 72
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_NUMEROSELO'
          Title.Alignment = taCenter
          Title.Caption = 'N'#250'mero S'#234'lo'
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NF_SERIESELO'
          Title.Alignment = taCenter
          Title.Caption = 'S'#233'rie S'#234'lo'
          Width = 60
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 244
      Width = 573
      Height = 0
      TabOrder = 2
    end
    object DBLCBDescricaoFormulario: TDBLookupComboBox
      Left = 3
      Top = 209
      Width = 486
      Height = 19
      Ctl3D = False
      KeyField = 'IN_CONFIGURA_IMPRESSAO_ID'
      ListField = 'VA_DESCRICAO'
      ListSource = dsConfiguracaoImpressao
      ParentCtl3D = False
      TabOrder = 0
      OnKeyDown = DBLCBDescricaoFormularioKeyDown
    end
    object RGTipoNota: TRadioGroup
      Left = 349
      Top = 1
      Width = 222
      Height = 37
      Caption = '  Tipo  '
      Columns = 2
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Nota Fiscal'
        'Pr'#233' - Nota Fiscal')
      ParentCtl3D = False
      TabOrder = 3
      OnClick = RGTipoNotaClick
    end
    object GroupBox1: TGroupBox
      Left = 3
      Top = 39
      Width = 568
      Height = 65
      Caption = '  Nota Fiscal  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
      object Label5: TLabel
        Left = 6
        Top = 21
        Width = 63
        Height = 13
        Caption = 'C'#243'digo Inicial'
      end
      object Label6: TLabel
        Left = 93
        Top = 21
        Width = 58
        Height = 13
        Caption = 'C'#243'digo Final'
      end
      object Label10: TLabel
        Left = 79
        Top = 37
        Width = 6
        Height = 13
        Caption = 'a'
      end
      object Label7: TLabel
        Left = 174
        Top = 21
        Width = 65
        Height = 13
        Caption = 'Data Emiss'#227'o'
      end
      object lbDataEntradaSaida: TLabel
        Left = 278
        Top = 21
        Width = 63
        Height = 13
        Caption = 'Data Entrada'
      end
      object Label9: TLabel
        Left = 384
        Top = 21
        Width = 55
        Height = 13
        Caption = 'Hora Sa'#237'da'
      end
      object ECodigoNF: TEdit
        Left = 6
        Top = 34
        Width = 67
        Height = 19
        TabOrder = 0
        OnKeyPress = ECodigoNFKeyPress
      end
      object ECodigoNF2: TEdit
        Left = 93
        Top = 34
        Width = 67
        Height = 19
        TabOrder = 1
        OnKeyPress = ECodigoNFKeyPress
      end
      object DEDataEmissao: TDateEdit
        Left = 174
        Top = 34
        Width = 99
        Height = 21
        NumGlyphs = 2
        TabOrder = 2
      end
      object DEDataEntradaSaida: TDateEdit
        Left = 278
        Top = 34
        Width = 99
        Height = 21
        NumGlyphs = 2
        TabOrder = 3
      end
      object MEHoraSaida: TMaskEdit
        Left = 384
        Top = 34
        Width = 67
        Height = 19
        EditMask = '!90:00;1;_'
        MaxLength = 5
        TabOrder = 4
        Text = '  :  '
      end
    end
    object GroupBox2: TGroupBox
      Left = 3
      Top = 105
      Width = 568
      Height = 84
      Caption = '  Dados da '#249'ltima Nota Fiscal  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
      object GBEntrada: TGroupBox
        Left = 123
        Top = 18
        Width = 118
        Height = 58
        Caption = '  Entrada  '
        TabOrder = 0
        object Label2: TLabel
          Left = 7
          Top = 18
          Width = 37
          Height = 13
          Caption = 'N'#250'mero'
        end
        object Label8: TLabel
          Left = 71
          Top = 18
          Width = 24
          Height = 13
          Caption = 'S'#233'rie'
        end
        object DBENumeroNFEntrada: TDBEdit
          Left = 7
          Top = 32
          Width = 65
          Height = 19
          Color = clWhite
          DataField = 'NUMERONOTAFISCALENTRADA'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 0
        end
        object DBESerieNFEntrada: TDBEdit
          Left = 71
          Top = 32
          Width = 41
          Height = 19
          Color = clWhite
          DataField = 'SERIENOTAFISCALENTRADA'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 1
        end
      end
      object GBSaida: TGroupBox
        Left = 240
        Top = 18
        Width = 118
        Height = 58
        Caption = '  Sa'#237'da  '
        TabOrder = 1
        object Label11: TLabel
          Left = 10
          Top = 18
          Width = 37
          Height = 13
          Caption = 'N'#250'mero'
        end
        object Label12: TLabel
          Left = 71
          Top = 18
          Width = 24
          Height = 13
          Caption = 'S'#233'rie'
        end
        object DBENumeroNFSaida: TDBEdit
          Left = 7
          Top = 32
          Width = 65
          Height = 19
          Color = clWhite
          DataField = 'NUMERONOTAFISCALSAIDA'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 0
        end
        object DBESerieNFSaida: TDBEdit
          Left = 71
          Top = 32
          Width = 41
          Height = 19
          Color = clWhite
          DataField = 'SERIENOTAFISCALSAIDA'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 1
        end
      end
      object GBSelo: TGroupBox
        Left = 357
        Top = 18
        Width = 118
        Height = 58
        Caption = '  S'#234'lo  '
        TabOrder = 2
        object Label13: TLabel
          Left = 10
          Top = 18
          Width = 37
          Height = 13
          Caption = 'N'#250'mero'
        end
        object Label14: TLabel
          Left = 71
          Top = 18
          Width = 24
          Height = 13
          Caption = 'S'#233'rie'
        end
        object DBENumeroSelo: TDBEdit
          Left = 7
          Top = 32
          Width = 65
          Height = 19
          Color = clWhite
          DataField = 'NUMEROSELO'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 0
        end
        object DBESerieSelo: TDBEdit
          Left = 71
          Top = 32
          Width = 41
          Height = 19
          Color = clWhite
          DataField = 'SERIESELO'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 1
        end
      end
      object GBServico: TGroupBox
        Left = 6
        Top = 18
        Width = 118
        Height = 58
        Caption = '  Servi'#231'o  '
        TabOrder = 3
        object Label3: TLabel
          Left = 7
          Top = 18
          Width = 37
          Height = 13
          Caption = 'N'#250'mero'
        end
        object Label4: TLabel
          Left = 71
          Top = 18
          Width = 24
          Height = 13
          Caption = 'S'#233'rie'
        end
        object DBENumeroServico: TDBEdit
          Left = 7
          Top = 32
          Width = 65
          Height = 19
          Color = clWhite
          DataField = 'NUMERONOTAFISCALSERVICO'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 0
        end
        object DBESerieServico: TDBEdit
          Left = 71
          Top = 32
          Width = 41
          Height = 19
          Color = clWhite
          DataField = 'SERIENOTAFISCALSERVICO'
          DataSource = DSConfiguracaoNotaFiscal
          ReadOnly = True
          TabOrder = 1
        end
      end
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'Select NotaFiscalVenda.*,'
      
        'CFOP_CODIGOFISCAL,CFOP_DESCRICAO,CFOP_NATUREZAOPERACAO,TRANS_NOM' +
        'E,TRANS_CPFCNPJ,TRANS_ENDERECO,TRANS_CIDADE,TRANS_UF,TRANS_INSCE' +
        'STDUAL,NF_FRETE,'
      
        'CLI_RAZAO,CLI_TIPOCLIENTE,CLI_CPFCNPJ,CLI_INSCESTADUAL,CLI_INSCM' +
        'UNICIPAL,CLI_FONE,CLI_FAX,CLI_IDENTENDNF,CLI_ENDERECOCORRESP as ' +
        'Endereco1,CLI_BAIRROCORRESP as Bairro1,CLI_CEPCORRESP as Cep1,CL' +
        'I_CIDADECORRESP as Cidade1,CLI_ESTADOCORRESP as UF1,'
      
        'CLI_ENDERECOPEDIDO as Endereco2,CLI_BAIRROPEDIDO as Bairro2,CLI_' +
        'CEPPEDIDO as Cep2,CLI_CIDADEPEDIDO as Cidade2,CLI_ESTADOPEDIDO a' +
        's UF2'
      'From NotaFiscalVenda Left join CFOP on NF_CFOPNF = CFOP_Codigo'
      
        'Left join Transportadora on NF_TRANSPORTADORA = Trans_Codigo Lef' +
        't join TipoVenda on NF_TipoVenda = TipVend_Codigo Left join CLIE' +
        'NTE on NF_Cliente = Cli_Codigo'
      'Where (NF_SITUACAO <> 2)'
      'Order By NF_Codigo'
      '')
    Left = 800
    Top = 75
  end
  inherited DSPesquisa: TDataSource
    Left = 936
    Top = 156
  end
  object DSConfiguracaoNotaFiscal: TDataSource
    DataSet = QConfiguracaoNotaFiscal
    Left = 936
    Top = 200
  end
  object QConfiguracaoNotaFiscal: TQuery
    BeforeOpen = QConfiguracaoNotaFiscalBeforeOpen
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'SELECT *'
      '  '
      'FROM'
      '  PARAMETRO'
      'WHERE'
      '  (COD_EMPRESA=:Codigo)')
    Left = 800
    Top = 224
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Codigo'
        ParamType = ptUnknown
      end>
  end
  object QNotaFiscal: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select *  From  NotaFiscalVenda')
    Left = 800
    Top = 180
  end
  object PSetupDialog: TPrinterSetupDialog
    Left = 896
    Top = 376
  end
  object QAux: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select *  From  NotaFiscalVenda')
    Left = 768
    Top = 412
  end
  object QItensNotafiscal: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select *  From  NotaFiscalVenda')
    Left = 800
    Top = 36
  end
  object QAux2: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select *  From  NotaFiscalVenda')
    Left = 672
    Top = 388
  end
  object QCFOP: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select *  From  NotaFiscalVenda')
    Left = 672
    Top = 340
  end
  object dsConfiguracaoImpressao: TDataSource
    DataSet = qryConfiguracaoImpressao
    Left = 936
    Top = 112
  end
  object qryConfiguracaoImpressao: TQuery
    DatabaseName = 'Base'
    SQL.Strings = (
      'SELECT '
      '  *'
      'FROM'
      '  CONFIGURA_IMPRESSAO')
    Left = 672
    Top = 40
  end
  object qryNotaFiscal: TQuery
    DatabaseName = 'base'
    Left = 672
    Top = 168
  end
  object qryItensNotaFiscal: TQuery
    DatabaseName = 'base'
    DataSource = dsNotaFiscal
    Left = 672
    Top = 128
  end
  object qryConfiguraImpressao: TQuery
    DatabaseName = 'base'
    Left = 800
    Top = 128
  end
  object qryConfiguraImpressaoCampos: TQuery
    DatabaseName = 'base'
    Left = 672
    Top = 256
  end
  object qryConfiguraImpressaoItensItens: TQuery
    DatabaseName = 'base'
    Left = 672
    Top = 296
  end
  object dsNotaFiscal: TDataSource
    DataSet = qryNotaFiscal
    Left = 936
    Top = 248
  end
  object TPedidoVenda: TTable
    DatabaseName = 'base'
    TableName = 'PEDIDOVENDA'
    Left = 808
    Top = 288
  end
  object qry: TQuery
    DatabaseName = 'base'
    Left = 672
    Top = 80
  end
  object DsPre: TDataSource
    DataSet = QPre
    Left = 936
    Top = 72
  end
  object QPre: TQuery
    DatabaseName = 'base'
    Left = 672
    Top = 216
  end
  object QryNFSe: TQuery
    DatabaseName = 'base'
    Left = 496
    Top = 88
  end
  object QryAux: TQuery
    DatabaseName = 'base'
    Left = 504
    Top = 168
  end
  object QParametro: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from parametro')
    Left = 536
    Top = 224
  end
end
